object ikincikezpaketyazdirmaF: TikincikezpaketyazdirmaF
  Tag = 214
  Left = 583
  Top = 200
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Paket '#199#305'kt'#305's'#305' '#304#351'lemleri'
  ClientHeight = 379
  ClientWidth = 576
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 329
    Width = 576
    Height = 50
    Align = alBottom
    TabOrder = 4
    object btPaketCikart: TButton
      Left = 4
      Top = 6
      Width = 121
      Height = 38
      Caption = #304#351'lemi Ger'#231'ekle'#351'tir'
      Enabled = False
      TabOrder = 0
      OnClick = btPaketCikartClick
    end
    object Button2: TButton
      Left = 487
      Top = 6
      Width = 84
      Height = 38
      Caption = 'Kapat'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 212
    Width = 576
    Height = 117
    Align = alBottom
    TabOrder = 3
    object grpislemturu: TGroupBox
      Left = 1
      Top = 1
      Width = 185
      Height = 115
      Align = alLeft
      Caption = '  '#304#351'lem T'#252'r'#252'  '
      TabOrder = 0
      object c4: TCheckBox
        Tag = 1001
        Left = 15
        Top = 89
        Width = 129
        Height = 17
        Caption = 'Teknik Servis De'#287'i'#351'im'
        TabOrder = 3
        OnClick = c4Click
      end
      object c3: TCheckBox
        Left = 15
        Top = 66
        Width = 121
        Height = 17
        Caption = #304'kinci Kez Yazd'#305'rma'
        TabOrder = 2
        OnClick = c3Click
      end
      object c1: TCheckBox
        Left = 15
        Top = 43
        Width = 97
        Height = 17
        Caption = 'Test Es Ge'#231
        TabOrder = 1
      end
      object c2: TCheckBox
        Left = 15
        Top = 20
        Width = 121
        Height = 17
        Caption = 'Master ID Es Ge'#231
        TabOrder = 0
        Visible = False
      end
    end
    object rgStokkodu: TRadioGroup
      Tag = 1002
      Left = 395
      Top = 1
      Width = 180
      Height = 115
      Align = alRight
      Caption = '  Stokkodu ve SeriNo De'#287'i'#351'im  '
      ItemIndex = 0
      Items.Strings = (
        'Di'#287'er'
        'Stokkodu ve Serino De'#287'i'#351'im'
        'Revizyon')
      TabOrder = 1
      OnClick = rgStokkoduClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 149
    Width = 576
    Height = 63
    Align = alBottom
    Caption = '  Yeni Makina Numaras'#305'  '
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    DesignSize = (
      576
      63)
    object edYseri: TEdit
      Left = 14
      Top = 19
      Width = 551
      Height = 37
      TabStop = False
      Anchors = [akLeft, akTop, akRight]
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 576
    Height = 61
    Align = alTop
    Caption = '  Makine No veya '#220'retim Emri No'#39'dan sadece birini giriniz...  '
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 33
      Width = 49
      Height = 14
      Caption = 'Makina No'
      Transparent = True
    end
    object lK2: TLabel
      Left = 441
      Top = 33
      Width = 36
      Height = 14
      Caption = 'Emir No'
      Transparent = True
    end
    object k1: TEdit
      Left = 71
      Top = 29
      Width = 352
      Height = 22
      MaxLength = 50
      TabOrder = 0
      OnExit = k1Exit
      OnKeyPress = k1KeyPress
    end
    object k2: TEdit
      Left = 484
      Top = 28
      Width = 81
      Height = 22
      TabStop = False
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 61
    Width = 576
    Height = 88
    Align = alClient
    TabOrder = 1
    object pnlStok: TPanel
      Left = 1
      Top = 56
      Width = 574
      Height = 31
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object lStokkodu: TLabel
        Left = 13
        Top = 8
        Width = 68
        Height = 14
        Caption = 'Yeni Stokkodu'
        Transparent = True
        Visible = False
      end
      object cdStokkodu: TwwDBComboDlg
        Tag = 1
        Left = 90
        Top = 5
        Width = 190
        Height = 22
        ShowButton = True
        Style = csDropDown
        TabOrder = 0
        WordWrap = False
        UnboundDataType = wwDefault
        Visible = False
        OnExit = cdStokkoduExit
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 574
      Height = 55
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object Label2: TLabel
        Left = 18
        Top = 8
        Width = 44
        Height = 14
        Caption = 'Stokkodu'
        Transparent = True
      end
      object Label3: TLabel
        Left = 39
        Top = 31
        Width = 23
        Height = 14
        Caption = 'Cinsi'
        Transparent = True
      end
      object Label17: TLabel
        Left = 305
        Top = 8
        Width = 62
        Height = 14
        Caption = #220'retici Marka'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 324
        Top = 31
        Width = 43
        Height = 14
        Alignment = taRightJustify
        Caption = #220'st Grup'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lcmbGRUP: TwwDBLookupCombo
        Left = 374
        Top = 4
        Width = 190
        Height = 22
        TabStop = False
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'isim'#9'50'#9'isim'#9#9)
        DataField = 'UreticiMarkaID'
        DataSource = dsMakineSorgula
        LookupTable = dm.aqMarka
        LookupField = 'id'
        Color = clBtnFace
        ButtonStyle = cbsCustom
        Navigator = False
        ReadOnly = True
        TabOrder = 2
        AutoDropDown = False
        ShowButton = False
        UseTFields = False
        AllowClearKey = False
      end
      object lcmbAGRUP: TwwDBLookupCombo
        Left = 374
        Top = 28
        Width = 190
        Height = 22
        TabStop = False
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'isim'#9'50'#9'isim'#9'F'#9)
        DataField = 'UstGrupId'
        DataSource = dsMakineSorgula
        LookupTable = dm.aqUstGrup
        LookupField = 'id'
        Color = clBtnFace
        ButtonStyle = cbsCustom
        Navigator = False
        ReadOnly = True
        TabOrder = 3
        AutoDropDown = False
        ShowButton = False
        UseTFields = False
        AllowClearKey = False
      end
      object stStokkodu: TwwDBEdit
        Left = 70
        Top = 4
        Width = 208
        Height = 22
        TabStop = False
        Color = clBtnFace
        DataField = 'Stokkodu'
        DataSource = dsMakineSorgula
        MaxLength = 50
        ReadOnly = True
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnExit = k1Exit
      end
      object stCinsi: TwwDBEdit
        Left = 70
        Top = 28
        Width = 208
        Height = 22
        TabStop = False
        Color = clBtnFace
        DataField = 'Cinsi'
        DataSource = dsMakineSorgula
        MaxLength = 50
        ReadOnly = True
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnExit = k1Exit
      end
    end
  end
  object UretimQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 475
    Top = 87
  end
  object GenelQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 475
    Top = 143
  end
  object AdoTemp: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 474
    Top = 209
  end
  object AdoParcalar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 539
    Top = 87
  end
  object adoTemp2: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 539
    Top = 143
  end
  object aqRecete: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 542
    Top = 200
  end
  object aqYeniUretim: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'MAK'
        DataType = ftString
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.Etest,testPersonel=(select Adi + '#39' '#39' + Soyadi As Unvan ' +
        'from Perkart where perkod=U.kperkod)'
      'from uretim U'
      'where u.Makinano=:Mak')
    Left = 540
    Top = 251
  end
  object aqMakineSorgula: TADOQuery
    Connection = dm.connect
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'MakinaNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select S.Stokkodu,S.Cinsi,S.UreticiMarkaID,S.UstGrupId'
      'from uretim u'
      'join Stok s on (Stokkod=u.Uretimkod)'
      'where u.Makinano=:MakinaNo')
    Left = 259
    Top = 239
  end
  object dsMakineSorgula: TDataSource
    DataSet = aqMakineSorgula
    Left = 261
    Top = 295
  end
end
